home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
netz
/
mailfilter
/
theanswer
/
betreff_filter.ta3
next >
Wrap
Text File
|
1994-12-17
|
2KB
|
85 lines
/* Arexx-Script für TheAnswerIII und MailFilter */
/*
** $VER: Betreff_Filter.TA3 1.1 (18.12.94)
**
** Übernimmt den Betreff der Mail unterm Cursor in den Betreff-Filter,
** vorangestellte 'Re:' oder 'Re^x:' werden entfernt. Dem Betreff wird
** dann jeweils ein '#?' oder '*' vorangestellt und angehängt. Im Betreff
** vorkommende Jokerzeichen werden durch Voranstellen eines Hochkommas
** ausgeschaltet. Nach erfolgreicher Übernahme in den Filter öffnet sich
** das Fenster und der gerade übernommene Betreff ist selektiert.
*/
/* Ergebnisse anfordern */
OPTIONS RESULTS
/* Name des Screens auslesen */
PARSE ARG screenname " " datei
IF OPEN('Name',datei,'READ')=0 THEN NOP
ELSE
DO
DO UNTIL POS('BET:',Zeile)>0 | EOF('Name')=1
Zeile=READLN('Name')
IF EOF('Name')=1 THEN RC=10
END
END
CLOSE('Name')
IF RC>10 | LENGTH(Zeile)<4 THEN
EXIT
Zeile = RIGHT(Zeile,LENGTH(Zeile)-LENGTH("BET:")-1)
betreff.pattern = LEFT(Zeile,LENGTH(Zeile)-1)
betreff.emppattern = ''
betreff.newsgroup = ''
betreff.mailtype = ''
betreff.action = ''
/* Testen, ob MailFilter gestartet ist. Wenn nicht, dann jetzt starten */
IF ~SHOW(PORTS,'MAILFILTER') THEN DO
ADDRESS COMMAND
'run >NIL: <NIL: MAILFILTER:MailFilter'
DO 3 WHILE ~SHOW(PORTS,'MAILFILTER')
'WaitForPort MAILFILTER'
END
IF rc = 5 THEN DO
SAY 'Kann MailFilter nicht starten!'
EXIT(10)
END
END
/* Aktuellen TheAnswer-Screen einstellen */
ADDRESS MAILFILTER
GETATTR screen
IF result ~= screenname THEN DO
DEACTIVATE
SETATTR screen screenname
END
/* Betreff in den Betrefffilter übernehmen und das */
ADDITEM TO subject STEM betreff CONVERT POPUP
/* Prefs speichern */
IF rc = 0 THEN
SAVE
/* Beenden */
EXIT(0)